MACLSP.CMP[UCI,WD] - www.SailDart.org

perm filename MACLSP.CMP[UCI,WD] blob sn#032200 filedate 1973-03-23 generic text, type T, neo UTF8


(DEFPROP MACLSPFNS
 (MACLSPFNS *EXPR *FEXPR **ARRAY *LEXPR MACLSP GRINPROPS)
VALUE)

(DEFPROP *EXPR
 (LAMBDA (L) (MAPC (FUNCTION (LAMBDA (X) (PUTPROP X T (QUOTE *SUBR)))) L))
FEXPR)

(DEFPROP *FEXPR
 (LAMBDA (L) (MAPC (FUNCTION (LAMBDA (X) (PUTPROP X T (QUOTE *FSUBR)))) L))
FEXPR)

(DEFPROP **ARRAY
 (LAMBDA (L) (MAPC (FUNCTION (LAMBDA (X) (PUTPROP X T (QUOTE *SUBR)))) L))
FEXPR)

(DEFPROP *LEXPR
 (LAMBDA (L) (MAPC (FUNCTION (LAMBDA (X) (PUTPROP X T (QUOTE *LSUBR)))) L))
FEXPR)

(DEFPROP MACLSP
 (LAMBDA NIL
  (DRM ' (LAMBDA NIL (LIST (QUOTE QUOTE) (READ))))
  (MODCHR (CHRVAL (QUOTE /")) (MODCHR 101 NIL))
  (PUTPROP (QUOTE VALUE) (GET (QUOTE EVAL) (QUOTE LSUBR)) (QUOTE LSUBR)))
EXPR)

(DEFPROP GRINPROPS
 (NIL EXPR FEXPR MACRO VALUE SPECIAL CEXPR CINT CPRINT BACKTRACE DATUM)
VALUE)